home *** CD-ROM | disk | FTP | other *** search
- REM $INCLUDE: 'fastgraf.bi'
-
- DEFINT A-Z
-
- OldMode = FGgetmode
- NewMode = FGbestmode(320,200,1)
-
- IF NewMode < 0 THEN
- PRINT "This program requires a 320 by 200 graphics mode."
- STOP
- END IF
-
- FGsetmode NewMode
-
- FGsetcolor 15
- FGtext "I'm running in mode", 19
- FGtext STR$(NewMode), LEN(STR$(NewMode))
- FGtext ".", 1
- FGwaitkey
-
- FGsetmode OldMode
- FGreset
-
- END